

#set working directory
here::i_am("RIO_replication_materials.Rproj")

getwd()

rm(list = setdiff(ls(), c("run_start", "run_start_total")))

source("r_code/prepTex.R") #prepares a texreg::createTexreg command for the different models
'%!in%' <- function(x,y)!('%in%'(x,y))

library("irr")
library("tidyverse")
library("marginaleffects")
library("texreg")
library("xtable")

#Individuals scripts ####
source("./r_code/study1.R") #Analyses of Polish and Spanish data

source("./r_code/study2.R") #Analyses of United Kingdom data

source("./r_code/open_questions.R") #Analyses of questions text for both
